COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin "mjtst"
C00003 ENDMK
C⊗;
begin "mjtst"
INTEGER PROCEDURE MANYJOB;
   BEGIN
   INTEGER I,J,K;
   J←0;
   FOR I←1 STEP 1 UNTIL '77 DO
      BEGIN
      K←CALL(I,"JBTSTS");
      IF (K LAND '40000000000) THEN J←J+1;
      END;
   RETURN(J);
   END;
print(manyjob," jobs",'15&'12);
end;